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require ‘c 
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Facility: Command Definition Utility, Symbol Table Module 
Abstract: This module contains the routines necessary to create a 


symbol table file for use by the old CLI interface. 
Symbols are gravest for each verb, syntax, or type 
definition which includes a PREFIX clause. These symbols 
specify the number of each qualifier or keyword defined. 


Environment: Standard CDU environment. 


Author: Paul C. Anagnostopoulos 
Creation: 16 February 1983 
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14-Sep-1984 
: TABLE OF CONTENTS 


forward routine 
cduSwrite_symbol_table_file: novalue, 
cduSclose_symbol_table_file: novalue, 
write_header_records: fiovalue, 
write _psect_record: novalue, 
write symbol_records: novalue, 
write _eom_record: novalue; 


: EXTERNAL REFERENCES 


external routine 
cdu$lookup_child, 
cdu$Sreport_rms_error, 
cli$get_value, 
Lib$free_vm, 
Lib$Sget_vm; 


external : ; k 
cdu$facility_string: descriptor, 
cdu$gl_root_node: ref node; 


$shr_msgdef(cdu,17, local, 
(openout severe), 
(writeerr,severe) 


| F 14 
SY 15-Sep-1984 23:50: VAX-11 Bliss-32 V4.0-74 Page 3 
yoee008 12-8 08-1 9c $7 39:53 DL SKSVMSMASTERSLCDU. SRCTSYMBOLS.832: 1 . (3) 
3 ; Hi ! : SYMBOL TABLE FILE CONTROL BLOCKS 
; 18 17 
3 4 i§ 1 ! The following items define the RMS control blocks needed to create and 
3 3? o8 » : ! write the symbol table file. 
: 87 8 g 1 own 
3 8 8 1 stb_esa: piock}nengc maures..byted 
5 : 4 1 stb_rsa: block(nam$c_maxrss,bytel, 
; P oe stb_nam: $nam( 
; P 08 $ 1 esa=stb_esa, 
3 3 p O8 1 ess=ZalTocation(stb_esa), 
Fe. Pp 6 1 rsa=stb_rsa, 
; (94 P 0829 1 rss=Z%alTocation(stb_rsa) 
: 3 O83) ' 
; (97 ttt 1 dbuffer(stb_spec,nam$c_maxrss), 
; «98 P 0833 1 stb_fab: $fab( 
; 99 P 0834 1 dnm='.STB', 
: 100 P 0835 1 fna=stb_spec+8, 
: 191 4 te] ! inssZallocation(stb_spec)-8, 
3 ac=put, 
3 108 P 0838 1 fop=<sqo.nen,ofp>, 
3: 104 P 0839 1 nam=stb_nam, 
: 105 P 0840 1 org=seq, 
: 106 P 0841 1 rat=cr, 
: 107 i bag 1 rfm=var 
2 ee 3 
: 110 P 0845 1 stb_rab: $rab( 
3; 11 P 0846 1 fab=stb_fab, 
s Te P 0847 1 rac=seq, 
3s 6115 P 0848 1 rop=wbh 
: (114 0849 1 ); 
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; 136 9820 1 lee 4 
s T 51 1! Description: This routine is called after a CLD file has been compiled 
; 118 £26 1! into its intermediate representation. We must determine 
; «119 2 all of the symbols that need to be added to the symbol 
3 : » Seed : table file and write them. 
i o¥ § Be28 1 Upon first call, we create the Syabet table file and write 
: ; t bees : } the records needed to start it off. 
; | 5 0859 Parameters: None. 
; ; ; Oaes : Returns: Nothing. 
: 129 0868 1 | Notes: 
; 130 0864 1 !-- 
; 13) 0865 1 ‘ 
3 136 Bae8 1 GLOBAL ROUT INE cduSwrite_symbol_table_file : novalue 
> 134 0868 
3; «6135 0869 local 
: 138 Baro status: long; 
: 138 087 
3 ‘7. 154 ! If we haven't yet created the symbol table file, let's do it. 
; 141 0875 § if .stb_fablfab$w_ifi] eqlu 0 then ( 
: 123 0877 : ! Get the value specified on the /SYMBOLS qualifier to use as 
: \*3 fh 4 ; ! the spec for the symbol table file. 
; “8 Bees 3 cli$get_value(dtext("SYMBOLS'),stb_spec); 
; 123 One : ! Create and connect to the symbol table file. Any errors are fatal. 
; 150 0884 ; status = Screate(fab=stb_fab); 
s 131 0885 if not .status then 
s Te 0886 3 cdu$Sreport_rms_error (msg(cdu$_openout),stb_fab); 
3; 153 0887 status = $connect(rab=stb_rab); 
3: 154 0888 if not .status then 
3 132 +334 cdu$Sreport_rms_error(msg(cdu$_openout),stb_rab); 
; 130 td ! Write the header records. 
: 122 tt write_header_records(); 
: 161 0895 ! Write the absolute psect definition record. 
; 188 334 : write_psect_record(); 
: 165 0899 2° hens: 
r} 198 Bone ! Now we can write the symbol definition records. 
: 138 $4 write_symbol_records(); 
; 190 904 return; 
3: 171 905 
s 172 906 END; 


Ty 


(4) 


Page 
1° 


SR¢4SYMBOLS.832; 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: CCDU. 


H 14 
1anSep-1986 11:58:58 


pam 
04-000 


«PSECT SPLITS,NOWRT,NOEXE ,2 


ASCII 
ASCII 
«LONG 


\.STB\ 


Ta 


42 5 
00 53 4C 4F 23 4 


yesereh 


«ADDRESS P.AAC 


~PSECT S$OWNS,NOEXE,2 


<= c¢ 

” ”“ 

=, = 

@ Qo mmr am] am) 
ww be —- comme ~N ~N 
ww o- WwW - WY wens rar) or) 
NK NO 1 2 22 4 9, COCCooooooooooooeooo 

” ” 

w w 
OOOOwWwwwlwwwws VOC OVUWWWWwWWWOUYOUUYUUY 
Pa ed ed ed ed el | ol el ol el — Pe 4 ee ee ee) 2 2? 
aI > > > O> > > > OOOCOCCOCO> >>> >>> OOC000C0OO 
ODOOOOOO< OOOO 1333 46 IDMOOOOO soso 
os . e *seeerfee#e#ee#srseee @ . o . s . o . a eee ee ee @ a e = ee o s eee 
Ld ee CA w 
<= «< = ws 
"Ww « a 
wez (7) 
4 a a t 
o © @ @ 
- -—- — 
“nnn 2) 


uOOOooO 


° © RRE = = 


COVOLOOOCOLOOSSSSOSOSCOSOSSSSSSOSSOSOSSSoO uw 
So Sooooooeo Sooooooo 
So Soooooo oooooooo 
So oo oo Sooooooo 
So oo oo Soooooo 
So oo oo Sooooooo 
o oo oo Soooooeo 


55 


- WORD 
-BYTE 


§°°o 
ADDRESS $1B_SPEC+8 
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-EXTRN CDUSREPORT_RMS_ERROR 
sEXTRN CLISGET_VACUE b1GS¢ REE vM 
SEXTRN LIBSGET-VM, COUSFACILITY_STRING 
-EXTRN CDUSGL_ROO -NODE 
-EXTRN SYSSCREATE, SYSSCONNECT 
-PSECT SCODES,NOWRT,2 
001¢ 00000 -ENTRY CDUSWRITE SYMBOL TABLE FILE, Save R2,R3,R4 ; 0866 
34 000000006 00 9€ 0008 MOVAB CDUSREPORT_RMS_ERROR, R4 ; 
3 00 CF 9E 0000 VAB STB_FAB, é 
02 A3 2 000¢ TSTW S18 -F +2 ; 0875 
4F 001 NEQ $ : 
FEF8 C3 OF 0013 PUSHAB STB_SPEC 3 0880 
0000" CF 9F 0001 PUSHAB P.AAB 3 
000000006 00 9 FB fog CALLS age CLISGET_VALUE : 
DD 000 PUSHL R 7 0884 
000000006 00 01 FB 00024 CALLS #1, SYSSCREATE 3 
52 50 D0 00028 VL RO, STATUS : 
08 2¢ E8 0002E LBS STATUS, 1$ ; 0885. 
53 DD B05 1 PUSHL R3 ; 0886. 
001110A4 8F DD 00033 PUSHL #1118372 r 
64 0 FB 00039 CALLS #2, CDUSREPORT_RMS_ERROR ; 
50 A3 9F 0003C 1$: PUSHAB S$TB_RAB ; 0887 
000000006 00 01 FB 0003F CALLS #1, SYSSCONNECT : 
52 50 DO 00046 MOVL RO, STATUS : 
oc 2¢ E8 00049 BLBS STATUS, 2$ ; 0888 
50 AS 9F 0004C PUSHAB STB_RAB ; 0889. 
001110A4 8F DD 0004F PUSHL #1178372 F 
64 02 FB 00055 CALLS #2, CDUSREPORT_RMS_ERROR ; 
0000v CF 00 FB 00058 2$: CALLS #0, WRITE_HEADER_RECORDS ; 0893. 
0000v CF 00 FB 0005D CALLS #0, WRITE_PSECT_RECORD 3 0897 | 
0000v CF 00 FB 0006¢ 3$: CALLS #0, WRITE SYMBOC_RECORDS 32-0902 
04 0006 RET > 0906 | 


; Routine Size: 104 bytes, Routine Base: $CODE$ + 0000 
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: 1746 907 1 !+e4 

; 175 908 1! Description: This routine is called when all CLDs have been processed and 
; 178 0909 1! we are done writing the syabots. We write the 
; Vy So1$ : : end-of-module record in the symbol table file. 
3 178 pale 1 ! Parameters: None. 

; 180 915 1! 

; «181 14 1°! Returns: Nothing. 

3 ise 915 1! 

3; %@ got8 1 ! Notes: 

3; «186 eh 1 !=- 

3 183 4 1 

cy 0919 1 GLOBAL ROUTINE cdu$close_symbol_table_file : novalue 

3: 187 0920 = BEGIN 

3; «4188 0921 

; «4189 09 ¢ 

; 190 09 ! Write the end-of-module record. 

: 6191 0924 

; 135 0925 write_eom_record(); 

; #19 0926 

: 194 0927 return; 

: «6195 0928 

; «196 0929 END; 


TABLE FILE. Save nothing ; 0919. 


0000 00000 -ENTRY CDUSCLOSE_SYMBOL 
0000v CF 00 FB 0000 CALLS #0, WRITE-EOM_RETO : 0925) 
04 0000 RET 


. : 0929 
; Routine Size: 8 bytes, Routine Base: S$CODES + 0068 
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! Description: This routine is responsible for writing the header records 
in the symbol table file. We write the mandatory module 
record, along with a language name record. 


Parameters: None. 
Returns: Nothing. 


ee ee 


Notes: 


ROUTINE write_header_records : novalue 
= BEGIN 


local 
status: tong 
hdr: block(256,byteJ, 
variable_ptr: pointer, 
child: ref node, 
work_dsc: descriptor; 


!' Set up the fixed portion of a module header record. 


hdrlobj$b_rectyp] = obj$c_hdr; 

hdr mie ar lt 4 mhd$c_mhd; 
hdr(mhd$b-strivl] = obj$c_strlvl; | 
hdrimhd$w_recsiz] = obj$c_maxrecsiz; 


! Now we want to include the module name. If there is a MODULE statement 
! in the CLD, use it. Otherwise use the name of the symbol table file. While 
' we're at it, set up a pointer to the next available byte in the header. 


child = cdu$lookup_child(.cdu$gl_root_node,node_k_module) ; 
if .child nega 0 then ( 


ch$move(1+.child(node_b_text_length),childLnode btext longthd. hdrCmhd$b_naming)); 


en var iable_ptr = hdr{mhd$t_name] + .child(node_b_fext_length 
else 

hdr(mhd$b_naming) = .stb_nam{[nam$b_name]; 
ch$move(.stb_nam[nam$b_name],.stb_nam{(nam$l_name], hdr&mhd$t_name)); 
: variable_ptr = hdr{mhd$t_name) + <stb_nam(nam$b_name); 


! Now we want to include the module ident string. if, ghere is an IDENT 
! statement, then use it. Otherwise use a string of ‘0-0"'. 


child = cdu$lookup_child(.cdu$gl_root_node,node_k_ident); 
if .child neqa 0 then. ‘ ’ 
ch$move(1+.child(node b_text_length) child(node b_text—Lengthl, -variable_ptr); 
el tor eble_pte = .variablé_ptr'+ 1 -child(node_b_text_length 3 
else 
ch$move(4,ctext('0-0"), .variable_ptr); 
variable_ptr = .variable_ptr + 4; 


! Finally, we want to include the current date and time. 


tty Page 
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<y 


3 re 0987 
; $ 988 
3 2 989 
3 8 990 
; 259 991 
; 260 99 

; 261 99 

3 $6 994 
; 995 
: 264 0996 
. ee 
3 6 999 
; 268 1000 
3; 269 1001 
: 270 1S 
3: e7i 100 

3 sie 1004 
; sf 1005 
: 276 1006 
s es 1007 
; $/8 1008 
: 77 1009 
; 278 1010 
; 279 1011 
3; 280 Ste 
: 281 101 

> 282 1014 
; 2835 1015 
; 6284 1016 
; 285 1017 
: 286 1018 
3; 287 1019 
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build_descriptor(work_dsc,17,.variable_ptr); 
Status = Sasctim(timbuf=work_dsc); 
check(.status, .status); 

variable ptr = .variable_ptr + 17; 


! Write the module header into the symbol table file. Any error is fatal. 


stb_rabCrab$l_rbf hdr; 

stb_rablrab$w_rszJ = .variable_ptr = hdr; 

status = $putTrab=stb_rab); 

if not .status then 
cduSreport_rms_error(msg(cdu$_writeerr),stb_rab); 


! Set up the fixed portion of a language name record. 


hero /sb_rectya} = obj$c_hdr; 
hdrimhd$b_hdrtyp] = mhd$c_lnm; 


! Move in our Language name. 
ch$move(.cdu$Sfacility_stringllen],.cdu$facility_stringl(ptr], hdr + 2); 
! Write the Language name record in the symbol table file. 
stb_rabCrab$w_rsz] = 2 + .cdu$facility_stringLllen]; 
status = S$putTrab=stb_rab); 
if not .status then 

cdu$Sreport_rms_error(msg(cdu$_writeerr),stb_rab); 
return; 


1 END; 


-PSECT SPLITS.NOWRT,NOEXE,2 
30 2D 30 03 00014 P.AAD: .ASCII <3>\0-0\ 

-EXTRN SYSSASCTIM, SYSS$PUT 

-PSECT SCODES,NOWRT,2 


OFFC 00000 WRITE _HEADER RECORDS: 
. WORD zee R2,R3,R4,R5,R6,R7,R8,RI,R1I0,R11 


5B 000000006 00 9€ 00002 MOVAB SYS$PUT. 
5A 000000006 00 9E 00009 MOVAB CDUSLOOKUP CHILD, R10 
59 0000' CF 9E 90019 MOVAB S 
SE FEF8 CE 9E 0001 MOVAB =26%(SP5, SP 
08 AE B84 OOO1A CLRW = HDR 
OA AE 94 0001D CLRB WDR*2 
0B AE 0800 8F BO 00020 MOVW #2048, HDR+3 
3 Dd 00026 PUSHL # 
000000006 DD 00028 PUSHL CDUSGL_ROOT_NODE 
6A FB OO02E CALLS #2, CDOSLOORUP_CHILD 
57 dO 00031 MOVL RO. CHILD 
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1$ 

eaten RO 

RO, 16(CHILD), HDR+5 
HDR+ 


16(CHILD), VARIABLE_PTR 
RO, VARIABLE_PTR 


STB_NAM+59, R6 
6 + 


R6, asTe NAM+76, HDR+6 
HDR+6CR6J, VARIABLE_PTR 


D>. R6 
CHILD), (VARIABLE_PTR) 
ARIABLE_PTRJ, VARTABLE_PTR 


<—_ 


be DSC 

#4, SYSSASCTIM 
RO, STATUS 
STATUS, 5$ 
STATUS 

#1, LIBSSIGNAL 


#1?, VARIABLE PTR 
HDR. STB_RAB+Z0 


HDR, 
RO. VARIABLE_PTR, STB_RAB+34 


#1, SYSS$PUT 
RO, STATUS 
STATUS, 6$ 


#1118420 
#2, CDUSREPORT_RMS_ERROR 


CDUSFACILITY_STRING, R6 
CDUSFACILITY: STRING*S, RO 


RO, P 
H+ R6, STB_RAB+34 
R 


#1, SYSSPUT 
RO, STATUS 
STATUS, 7$ 

RO 

#1118420 

#2, CDUSREPORT_RMS_ERROR 
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14-Sep-1984 11:58: DISKSVMSMASTER: CCDU.SRCJSYMBOLS.832;1 (7) 

89 1 9 1 !+4 
90 1 1! Description: This routine is responsible for a bey the absolute psect 
91 1 § ,! definition, which is needed so that all the symbols can 
35 13 ? : : reside in it. 

3% 10 5 Parameters: None. 

96 19 : : Returns: Nothing. 

98 1029 1 ! Notes 

99 1030 1 !-- 

00 1031 1 

4 1936 1 ay by write_psect_record : novalue 

= 

08 1034 

04 1035 Local 

05 1038 status: Long 

309 Re gsd: block §6.bytel; 

i 1039 bind 

44 So gsd_psc = gsd + 1: blockC,bytel; 

314 Ho 

$18 bo ! Set up the fixed portion of the psect record. 
314 1045 gsdlobj$b_rectyp] = gbj$¢_gsd; 

315 1046 gsd_psc gpssb_gsdtyed = gsd$c_psc; 

316 1047 gsd_psc(gps$b_align] = 0; 
317 1048 gsd_psc gps$u. flags, = gessm_rd + gps$m_wrt + gps$m_exe; 
$18 He gsd_psc(gps$l_alloc] = 0; 
$55 12s ! Now we want the psect name. 

$$ 1988 begin 

2 1054 bind 

Se 1932 name = ctext('$ABS$"): vector(,bytel; 

329 Het sheneyeths name S),ReneUNe, gsd_psc(gps$b_naming]); 

end; 

28 1059 

329 1060 ! Write the psect definition record into the symbol table file. 

* 19e! ! Errors are fatal. 

3 1068 stb_rabCrab$l_rbf] = 95d: 

1064 stb_rablrab$w_rsz) = 1 + 8 + 1+.gsd_psclgps$b_naming]; 

34 1065 status = $putTrab=stb_rab); 

35 1066 f not .status then y 

$ H's cdu$report_rms_error(msg(cdu$_writeerr),stb_rab); 

38 1069 return; 

39 1070 

40 1071 END; 


-PSECT SPLITS,NOWRT,NOEXE ,2 
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56 0000" 
SE FFOO 
6E 0 
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50 0000' 
09 AE 0000" CF 
06 A6 
66 09 
66 
DE 
000000006 % 
DE 
00111004 
000000006 00 
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ASCII 


»PSECT 


007C 00000 WRITE PO NORD sa 


MOVAB 


a 17:58:38 


VAX-11 Bliss-32 V4. 


<5>\S$ABS$\ 
P.AAE 


SCODES ,NOWRT,2 


seve R2. Bee * AR. R6 


=258(3P) 

és6 ae 
Sica, BES cos 
GSD_PSC+4 
E, RO 


NAME, GSD_PSC+8 


5, STB RAB+ 
D'PSC+B, STB_RAB+34 
07 STB_RAB+3% 
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#2, CDUSREPORT_RMS_ERROR 
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SKSVMSMASTER: CCDU.SRCJSYMBOLS.832;1 (8) 


1072 1 !44 
rk 1978 1! Description: This routine is responsible for writing out the syabet 
44 1074 1! definition records. This is done by traversing the 
5 1075 1! intermediate representation tree to locate ony verb 
6 1076 1 i syntax, or type definitions that specify a PREFIX clause. 
1077 1! A —— is then generated for every subordinate qualifier 
48 1978 1! or keyword, but not for parameters. 
49 1079 1! 
50 1080 1! Parameters: None. 
51 1081 1! 
26 1OR6 1 ! Returns: Nothing. 
5 1085 1! 
54 1084 1 ! Notes: 
55 1085 1 !<- 
56 1036 1 
57 1087 1 ROUTINE write_symbol_records : novalue 
58 1088 = BEGIN 
59 1089 
60 1090 local 
61 1091 status: Long 
36 1098 sd: block(256,byte], 
36 109 efinition: ref node. 
64 1094 prefix: ref node, 
365 1095 entity_type: long, 
66 1096 entity_number: Long, 
67 1097 _ entity: ref node; 
68 1098 ; 
369 1099 bind 
370 1100 § gsd_sym = gsd + 1: blockC,bytel; 
71 1101 
7 1136 2 f 
<7 +S § ! Scan the intermediate representation tree, looking for definitions. 
$2 ‘ 4 2 scan_children(cdu$gl_root_node,definition, 
377 P 1107 5 : If we have a definition, then determine whether that definition 
a3 : 13 2 ! includes a PREFIX clause. 
355 ‘ Ast9 $ if (prefix = cduSlookup_child(.definition,node_k_prefix)) neqa 0 then ( 
382 P a $ ! If we have a prefix clause, then we want to generate symbols 
4 P1113 2 ! for this definition. If a verb or syntax, then we want 
84 P 1114 ! symbols for the qualifiers. If a type, symbols for the 
$82 . 142 ! keywords. 
387 P 1117 entity_type = (if .definition[node_w_type] eqlu node_k_define_type then 
88 P 1118 node_k_keyword 
89 P 1119 else k 
bs 4 1169 node_k_qualifier); 
9 P 1192 ! Scan the children of the definition node looking for the 
9 P 112 ! entities that need symbols defined. As we go, we will count 
94 P 1124 ' the relevent entities. 
95 P 1125 
%6 P 11 $ entity number = 0; r 
4 4 i i scan_children(definition,entity, 
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SYMB 15-Sep-1984 23:50: VAX-11 Bliss-32 V4.0-74 Pa 16 
voee008 12-Sep-19 4 $7529 :38 DISKSVMSMASTERSLCDU. SRCTSYMBOLS.832;1 ™ (8) 
3 iz . 1} 2 if .entity([node_w_type] eqlu .entity_type then ( 
$ : 1 : 1% 1 ! Increment the entity number. 
: £08 P 11 : increment (entity_number) ; 
: 6046 P 1134 
; 405 P 1155 ! We have an entity for which a syabel must be 
: ret P 11 $ ! generated. Begin by buiiding the fixed 
; 40 P 11 : pert ion of a GSD symbol definition record. 
3 rt’ . + : ! The symbol value is the entity number. 
41 P 1140 sdlobj$b_rectyp] = obj$c_qsd; 
3: 41 P 1141 ae sdf$b Meaty 5 : 9ea8c. sym; 
3 tig P 1108 gsd_symisdf$b_datyp] = 0; 
3 461 P 114 gsd_symisdf$w_flags] = gsy$m_def; 
: 414 P 1144 gsd_symisdf$b_psindx] = 0; 
3 $12 . ee gsd_sym(sdf$l_value] = .entity_number; 
3; 417 P 1109 ! Now we can build the symbol name out of the 
; 418 P 1148 ! prefix and the first four characters of the 
; 419 P 1149 ! entity name. 
; 420 P 1150 
3: 421 P 1151 gsd_sym(sdf$b_naming] = .prefix(node_b_text_length] + 
3 re P 1138 minu(.entity[node_b_text_length],4); 
: 42 P 115 ch$copy(.prefixCnode_b_text_length] prefix(hode_f_textJ, 
3: 424 P 1154 piqut.entityinegs b_text_length],4) ,entity(node_t_text], 
3 ost . ite? 2 * *,.gsd_sym(sdf$b_naming),gsd_sym(sdf$t_nameJ); 
; 427 P 1157 § : Write the record into the symbol table file. 
; 428 P1158 2 ! Any error is fatal. 
3 $¢3 P1159 2 
: 430 P1160 2 stb_rabCrab$l_rbf] = 9sdi 
: 431 P1161 2 stb_rabLrab$w_rsz] = 1 + 9 + 1+.gsd_sym({sdf$b_naming); 
; 432 Pp 1166 $ status = $putTrab=stb_rab); 
; 433 P 116 if not .status then ; 
> 434 P1164 2 cdu$report_rms_error(msg(cdu$_writeerr),stb_rab); 
: 435 P1165 2 ); 
; 436 P 1166 § F 
3; 437 P 1167 v3 
; 438 1168 ); 
3; 439 1169 
: 440 1170 return; 
: 441 1171 
3 442 1172 1 END; 
OFFC 00000 WRITE_SYMBOL_RECORDS: 
~ .WORB Save R2,R3,R4.R5,R6,.R7,R8,R9,.R10,R11 : 1087 
MOVAB <=-272(SP), : 
MOVL CDUSGL_ROOT_NODE, RO >: 1168 
MOVL gino). DEFINITION : 
BNEG eS : 


E 
PUSHL #15 


000000006 


04 
04 


1A AE 10 


58 20 11 


58 20 11 


000000006 


000000006 
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59 


06 
AE 
AE 
56 


10 


-—"fO OOO PruUN 
-—no "4" OWo 


woe 
ao 


“ 
aaa 


Routine Base: 


Pr-O" OOS 10M" 
PMOL OOrPOConry,r 


0095 


04 A6 


yee re Mp pd 4 NOPOO WOO WOO00O9O O07 OFT ODTOWMWw- 9 90-9 -@ -o "9 
9 -OWTO*BHOWM"OOIM OVC OMY POD —POLOLOO WI —WOFLfO—-ON—-WOWI 
SOOOCCCOCOOGSOOSOSOOOOOOOSOOOOSOSOOSOOOOSO OOOO OOOO OOOOOOOOOOOOOOOO 
Be ee ee SS SS SSS SSS SSS SSS SSS SSS SSS sess Ssesssessssses 


SCODES + 0107 


Sinaeboee ene Ss 
NEMDWOoooumgn FPOoOvVWonon -— 


wmv 


oO 
wr oco 


SOOO OCOOSOSOOSSSSOSOOSOOSOOSCOOSGOSOOOOOOOOOOoOSoOoOO 


OO O09 0909 SII NIOAOO 
2>Rs SFOrMmPrunorn 


ew 
PAM 


ow 
rw 


~“ 
wn 


oo 
ad 


Oo 
wn 


10$: 
118: 


§-Sen-1984 $3:29:33 
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PUSHL 
ALLS 


VAX-11 Bliss- 
DISKSVMSMASTE 


DEFINITION 
#2, CDUSLOOKUP_CHILD 
RO. PREFIX 


32 v4. ~~ 
R 


(DEFINITION), #6 

#24, ENTITY_TYPE 

#16, ENTITY TYPE 

ENTITY NUMBER 
(DEFINITION), ENTITY 


11$ 
0. #16, (ENTITY), ENTITY_TYPE 


10$ 
ENTITY_NUMBER 
#257, GSD 
GSD_SYM+1 

#2, GSD_SYM+2 
GSD_SYMT4 
ENTITY_NUMBER 
ISCENTITY), R? 


GSD_SYM+5 


R7 
16(PREFIX), GSD_SYM+9 
PREFIX), 12(SP) 
YM+9, R11 


~-UCOre. 
3 


SYM+10, R8 
SP), 17(PREFIX), #32, R11, (RB) 


) 
) 
7 
Pm) 
SY 

S 


-—ovOo a.m 
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8420 
CDUSREPORT_RMS_ERROR 
NTITY), ENTITY 


DEFINITION), DEFINITION 
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| H 15 
SY 15-Sep-1984 23:50: VAX-11 Bliss-32 V4.0-74 Page 18 
vif 12-8 08-1 3b 17:29:58 DL SKSVMEMASTERSLCDU. SRCTSYMBOLS 832: 1 . (9) 
3 666 1173 1 S44 
; 465 1174 1°! Description: This routine is responsible for te og the end-of-module 
; rr | 1175 1! record at the end of the symbol table file. 
3; 44 1308 § 
; 4468 1177 1 =! Parameters: None. 
: 449 1308 1! 
; 450 1179 1°! Returns: Nothing. 
3; 451 1180 1! 
: t2§ 1181 1 =! Notes: 
s 45 1156 1 l= 
3; 454 1183 1 
; 455 1184 1 ROUTINE write_eom_record : novalue 
: $28 1185 = BEGIN 
; 45 1186 
; 458 1187 local 
; 459 1188 status: Long 
: 460 1189 eom: block(256,bytel: 
; 461 1190 
3 t86 1191 ! Format the end-of-module record. 
; 46 BD ; ; 
; 464 119 eomCobj$b_rectyp] = obj$c_eom; 
; 465 1194 eomLeom$b_comcod] = 0; 
: 466 1195 
; 467 1196 ! Write the record. All errors are fatal. 
; 468 1197 
: 469 1198 stb_rabCrab$l_rbf] = — 
: 470 1199 stb_rablrab$w_rsz] = 2; 
3: 471 1200 status = $putTrab=stb_rab); 
3: 47 1201 if not .status then 
3 467 1202 cdu$Sreport_rms_error(msg(cdu$_writeerr),stb_rab); 
: 4676 1203 
: 475 1204 return; 
3; 476 1205 
3; 4677 1206 1 END; 
0004 00000 WRITE_EOM_RECORD: 
.@ORD ave R2 ; 1184 
52 0000" CF 9E 00008 MOVAB STB_RAB, R2 3 
5E FFOO cE 9E 0000 MOVAB =258(SP5, SP : 
of 0 0 Boot MOVW #3, EOM 3 1193 
$8 A 6 3 OOOF MOVAB EOM, STB_RAB+40 3: 1198 
2 Ae 2 8 30013 VW = #2, STB_RAB+34 2 1199. 
DD 0001 PUSHL : 1200. 
00000000G 00 01 4 00019 CALLS #1, SYSS$PUT 3 
OF 50 €8 000 BLBS STATUS, 1$ : 1201 | 
52 DD 000 PUSHL : 1202. 
001110D4 Be DD 000 PUSHL #1118420 : 
00000000G 00 2 FB 000 8 CALLS #2, CDUSREPORT_RMS_ERROR 3 
04 00052 1$: RET 3: 1206 | 


; Routine Size: 51 bytes, Routine Base: $CODE$ + 0284 


RCISYMBOLS.832:1° 37 


15 
SY 14-52 -1984 23:50: VAX-11 Bliss-32 V4.0 
v04 1a-8ep-19 4 $7 529 :33 Dts aKSVMGM TER: CCDU. SRC 
478 1207 
479 1 o8 1 END 
480 1209 0 ELUDOM 
-EXTRN LIBSSIGNAL 
$ PSECT SUMMARY 
; Name Bytes Attributes 
; SOWNS 1020 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, rob eg hte 
: SPLITS NOVEC.NOWRT, RD .NOEXE.NOSHR, LCL, REL: CON,NOPIC,ALIGN(2) 
; SCODES 743 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
; ensesees Syabel§ socom Pages Processing 
} File Total ineaed Percent Mapped Time 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 85 0 1000 00:01.9 
: COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SYMBOLS/OBJ=OBJ$:SYMBOLS MSRC$:SYMBOLS/UPDATE=(ENH$: SYMBOLS) 
: Size 743 code + 1050 data bytes 
; Run Time 00:22.9 
3; Elapsed Tees 00:56.6 
3 Lines/CPU Min: 3167 
3 jononee/SP-tie: 30372 
3 eeneey Used: 203 pages 
; Compilation Complete 
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